home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Gamer (Italian) 48
/
PC Gamer IT CD 48 2-2.iso
/
utility
/
nmail28u
/
_SETUP.1
/
NETMAIL.EXE
/
0
/
RCDATA
/
TSTOPLISTFORM
/
TSTOPLISTFORM.txt
< prev
Wrap
Text File
|
1999-09-10
|
27KB
|
763 lines
object StopListForm: TStopListForm
Left = 3
Top = 39
HelpContext = 190
BorderStyle = bsDialog
Caption = 'Stop List Addresses'
ClientHeight = 415
ClientWidth = 641
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
WindowState = wsMaximized
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel2: TPanel
Left = 0
Top = 0
Width = 641
Height = 33
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object Panel1: TPanel
Left = 0
Top = 0
Width = 641
Height = 31
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object SpeedButton6: TSpeedButton
Left = 510
Top = 3
Width = 60
Height = 24
Caption = 'Report'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330000000
00003333377777777777333330FFFFFFFFF03FF3F7FFFF33FFF7003000000FF0
00F077F7777773F77737E00FBFBFB0FFFFF07773333FF7FF33F7E0FBFB00000F
F0F077F333777773F737E0BFBFBFBFB0FFF077F3333FFFF733F7E0FBFB00000F
F0F077F333777773F737E0BFBFBFBFB0FFF077F33FFFFFF733F7E0FB0000000F
F0F077FF777777733737000FB0FFFFFFFFF07773F7F333333337333000FFFFFF
FFF0333777F3FFF33FF7333330F000FF0000333337F777337777333330FFFFFF
0FF0333337FFFFFF7F37333330CCCCCC0F033333377777777F73333330FFFFFF
0033333337FFFFFF773333333000000003333333377777777333}
NumGlyphs = 2
ParentFont = False
Visible = False
end
object SpeedButton5: TSpeedButton
Left = 151
Top = 3
Width = 68
Height = 24
Caption = 'Import'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
F033777777777337F73309999990FFF0033377777777FFF77333099999000000
3333777777777777333333399033333333333337773333333333333903333333
3333333773333333333333303333333333333337333333333333}
NumGlyphs = 2
ParentFont = False
OnClick = SpeedButton5Click
end
object SpeedButton1: TSpeedButton
Left = 1
Top = 3
Width = 90
Height = 24
Hint = 'Table/Form'
Caption = 'Table/Form'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
66010000424D6601000000000000760000002800000013000000140000000100
040000000000F000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
EEEEEEE00000EEEEEEEEEEEEEEEEEEE00000EEEEEEEEEEFFFFFFFFE00000EE22
22E22EF22F222FE00000EEEEEEEEEEFFFFFFFFE00000EEEEEEEEEEEEEEEEEEE0
0000EEEEEEEEEEFFFFFFFFE00000EE222E222EF222222FE00000EEEEEEEEEEFF
FFFFFFE00000EEEEEEEEEEEEEEEEEEE00000EEEEEEEEEEFFFFFFFFE00000EE22
222EEEF2222FEFE00000EEEEEEEEEEFFFFFFFFE00000EEEEEEEEEEEEEEEEEEE0
0000EEEEEEEEEEFFFFFFFFE00000EEE22E22EEF222F22FE00000EEEEEEEEEEFF
FFFFFFE00000EEEEEEEEEEEEEEEEEEE00000EEE222E2222222222EE00000EEEE
EEEEEEEEEEEEEEE00000}
ParentFont = False
OnClick = DBGridadressDblClick
end
object SpeedButton4: TSpeedButton
Left = 91
Top = 3
Width = 60
Height = 24
Caption = 'Filter'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
339977FF777777773377000BFB03333333337773FF733333333F333000333333
3300333777333333337733333333333333003333333333333377333333333333
333333333333333333FF33333333333330003333333333333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
ParentFont = False
OnClick = SpeedButton4Click
end
object SBSavegroup: TSpeedButton
Left = 219
Top = 3
Width = 80
Height = 24
Caption = 'Apply list'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
93337FFFF7737777733300000033333333337777773333333333}
NumGlyphs = 2
ParentFont = False
OnClick = SBSavegroupClick
end
object Gauge1: TGauge
Left = 0
Top = 0
Width = 299
Height = 27
Color = clNavy
ForeColor = clAqua
ParentColor = False
Progress = 0
Visible = False
end
object DBNavigator2: TDBNavigator
Left = 427
Top = 3
Width = 80
Height = 24
DataSource = DSadress
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
Flat = True
TabOrder = 2
end
object DBNavigator1: TDBNavigator
Left = 302
Top = 3
Width = 125
Height = 24
DataSource = DSadressUP
VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
Flat = True
ParentShowHint = False
ShowHint = True
TabOrder = 1
BeforeAction = DBNavigator1BeforeAction
end
object Panel4: TPanel
Left = 574
Top = 0
Width = 67
Height = 31
Align = alRight
BevelOuter = bvNone
TabOrder = 0
object BitBtn2: TExplorerButton
Left = 0
Top = 1
Width = 65
Height = 26
NoFocusBitmap.Data = {
96010000424D9601000000000000760000002800000014000000180000000100
0400000000002001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777700007777777777777777777700007777777777777777777700007777
7777777777777777000077777777777777777777000000007EEEEEEEEEEE0000
0000777076666666666008770000777076666666666008770000777076666666
666008770000777076B666666660087700007770766666666660087700007770
76B66666666008770000777076B66666666008770000777076B6666666600877
0000777076666666666008770000777076666666666008770000777076666666
6660087700007770766666666660087700007770766666666660087700007770
7666666666600877000077707666666666600877000077707777777777770877
0000777000000000000008770000777777777777777777770000}
Bitmap.Data = {
96010000424D9601000000000000760000002800000016000000180000000100
0400000000002001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777007777777777777777770007007777777777777777706607007777
7777777777770666070077777777777777706666070000007777777777066666
07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE
EE6666B607007770EEEEEEEEEE6666B607007770EEEEEEEEEE6666B607007770
EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEEEE666666
07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE
EE66667707007770EEEEEEEEEE66670077007770EEEEEEEEEE66707777007770
EEEEEEEEEE67087777007770EEEEEEEEEE700877770077700000000000000877
7700777000000000000007777700777777777777777777777700}
Caption = 'Close'
DisabledBitmap.Data = {
96010000424D9601000000000000760000002800000016000000180000000100
0400000000002001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777007777777777777777770007007777777777777777706607007777
7777777777770666070077777777777777706666070000007777777777066666
07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE
EE6666B607007770EEEEEEEEEE6666B607007770EEEEEEEEEE6666B607007770
EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEEEE666666
07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE
EE66667707007770EEEEEEEEEE66670077007770EEEEEEEEEE66707777007770
EEEEEEEEEE67087777007770EEEEEEEEEE700877770077700000000000000877
7700777000000000000007777700777777777777777777777700}
Layout = blBitmapLeft
Options = [boMonoDisplay, boPopupMark, boShowBevel]
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OnClick = BitBtn2Click
ParentFont = False
IBitmap = {
424D560A00000000000036000000280000001F0000001B000000010018000000
0000200A0000000000000000000000000000000000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFFFFFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFFFFF7F7F7FBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFF000000BFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFFFFFFF7F7F7F7F7F7FBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000
BFBFBFBFBFBFBFBFBFFFFFFF7F7F7F7F7F7F7F7F7FFFFFFFFFFFFFFFFFFFFFFF
FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFF
000000BFBFBFFFFFFF7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7FFFFF
FFFFFFFFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBF00000000
0000000000000000BFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFF0000007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
7F7F7F7FFFFFFFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFF0000007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
7F7F7F7F7F7F7FFFFFFFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFF7F7F7F7F7F7F7F7F7FBFBFBFBFBFBF7F7F7F7F7F
7F7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000FFFFFF7F7F7F7F7F7FBFBFBFBFBFBFBFBFBF7F7F
7F7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF000000
FFFFFFFFFFFFFFFFFF000000000000FFFFFF7F7F7FBFBFBFBFBFBFBFBFBFBFBF
BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBF7F7F
7F7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBF7F7F7F7F7F7F7F7F7F7F7F
7F7F7F7F7F7F7FFFFFFFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBF7F7F7F7F7F7F7F7F7F7F7F
7F7F7F7F7F7F7FFFFFFFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBF7F7F7F7F7F7F7F7F7F7F7F
7FFFFFFFFFFFFFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000BFBFBFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFFFFFFFFFFFFFFFFFFFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000BFBFBF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000
BFBFBFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000
000000BFBFBFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000000000000000000000000000000000000000000000000000
000000000000BFBFBF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000000000000000000000000000000000000000000000000000
000000000000000000000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF000000}
end
end
end
end
object Panel3: TPanel
Left = 0
Top = 33
Width = 641
Height = 382
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object Splitter1: TSplitter
Left = 638
Top = 0
Width = 3
Height = 382
Cursor = crHSplit
Align = alRight
end
object Label1: TLabel
Left = 8
Top = 104
Width = 61
Height = 13
Caption = 'Last Name'
end
object Label3: TLabel
Left = 8
Top = 131
Width = 52
Height = 13
Caption = 'Company'
end
object Label4: TLabel
Left = 10
Top = 26
Width = 35
Height = 13
Caption = 'E.mail'
end
object Label2: TLabel
Left = 8
Top = 77
Width = 61
Height = 13
Caption = 'First Name'
end
object Image1: TImage
Left = 192
Top = 288
Width = 105
Height = 105
Picture.Data = {<image000.bmp>}
Visible = False
end
object Label5: TLabel
Left = 8
Top = 158
Width = 65
Height = 13
Caption = 'Description'
end
object Label13: TLabel
Left = 10
Top = 50
Width = 26
Height = 13
Caption = 'URL'
end
object DBEdit6: TDBEdit
Left = 86
Top = 50
Width = 361
Height = 21
BorderStyle = bsNone
Color = 14935011
DataField = 'URL'
DataSource = DSadressUP
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 8
end
object DBEdit5: TDBEdit
Left = 86
Top = 154
Width = 443
Height = 21
BorderStyle = bsNone
Color = 14935011
DataField = 'Description'
DataSource = DSadressUP
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
end
object DBEdit4: TDBEdit
Left = 86
Top = 24
Width = 289
Height = 21
BorderStyle = bsNone
Color = 14935011
DataField = 'HomeEMail'
DataSource = DSadressUP
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object DBEdit3: TDBEdit
Left = 86
Top = 128
Width = 361
Height = 21
BorderStyle = bsNone
Color = 14935011
DataField = 'Company'
DataSource = DSadressUP
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
end
object DBEdit2: TDBEdit
Left = 86
Top = 101
Width = 361
Height = 21
BorderStyle = bsNone
Color = 14935011
DataField = 'LastName'
DataSource = DSadressUP
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object DBEdit1: TDBEdit
Left = 86
Top = 75
Width = 361
Height = 21
BorderStyle = bsNone
Color = 14935011
DataField = 'FirstName'
DataSource = DSadressUP
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object DBRadioGroup1: TDBRadioGroup
Left = 382
Top = 17
Width = 223
Height = 30
Columns = 3
DataField = 'TypeAdress'
DataSource = DSadressUP
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Items.Strings = (
'e.mail '
'cc '
'bcc')
ParentFont = False
TabOrder = 1
Values.Strings = (
'0'
'1'
'2')
end
object DBGridadress: TDBGrid
Left = 0
Top = 0
Width = 638
Height = 382
Align = alClient
BorderStyle = bsNone
DataSource = DSadress
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
TabOrder = 6
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clBlack
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDrawDataCell = DBGridadressDrawDataCell
OnDblClick = DBGridadressDblClick
OnKeyDown = DBGridadressKeyDown
end
object ToList: TListBox
Tag = 1
Left = 297
Top = 52
Width = 24
Height = 155
ItemHeight = 13
Style = lbOwnerDrawFixed
TabOrder = 7
Visible = False
end
end
object Tadress: TTable
Filtered = True
DatabaseName = 'Vistamail'
IndexFieldNames = 'PosA'
TableName = 'liststop'
TableType = ttParadox
Left = 462
Top = 244
object TadressHomeEMail: TStringField
DisplayWidth = 20
FieldName = 'HomeEMail'
Size = 50
end
object TadressPosA: TIntegerField
FieldName = 'PosA'
Visible = False
end
object TadressTypeAdress: TSmallintField
FieldName = 'TypeAdress'
Visible = False
end
end
object DSadress: TDataSource
DataSet = Qadress
Left = 486
Top = 220
end
object QadressUp: TQuery
DatabaseName = 'Vistamail'
Left = 514
Top = 292
end
object DSadressUP: TDataSource
DataSet = QueryUp
Left = 536
Top = 209
end
object QueryUp: TQuery
AfterInsert = QueryUpAfterInsert
BeforeEdit = QueryUpBeforeEdit
BeforePost = QueryUpBeforePost
AfterDelete = QueryUpAfterDelete
DatabaseName = 'VistaMail'
RequestLive = True
SQL.Strings = (
'select * from ListStop where PosA=:a0')
Params.Data = {0100010002613000030400000000000000}
Left = 560
Top = 247
end
object Qadress: TQuery
Active = True
DatabaseName = 'Vistamail'
SQL.Strings = (
'select * from ListStop')
Left = 440
Top = 300
object QadressVybor: TBooleanField
DisplayLabel = 'Type'
FieldName = 'Vybor'
Origin = '"adress5.DB".Vybor'
end
object QadressHomeEMail: TStringField
Tag = 1
DisplayLabel = 'E.mail'
DisplayWidth = 20
FieldName = 'HomeEMail'
Origin = '"adress5.DB".HomeEMail'
Size = 50
end
object QadressFirstName: TStringField
Tag = 1
DisplayWidth = 20
FieldName = 'FirstName'
Origin = '"adress5.DB".FirstName'
Size = 40
end
object QadressLastName: TStringField
Tag = 1
DisplayLabel = 'Last Name'
DisplayWidth = 20
FieldName = 'LastName'
Origin = '"adress5.DB".LastName'
Size = 40
end
object QadressURL: TStringField
Tag = 1
DisplayWidth = 25
FieldName = 'URL'
Origin = '"adress5.DB".PosA'
Size = 255
end
object QadressCompany: TStringField
Tag = 1
DisplayWidth = 35
FieldName = 'Company'
Origin = '"adress5.DB".Company'
Size = 50
end
object QadressDescription: TStringField
Tag = 1
DisplayLabel = 'Note'
DisplayWidth = 30
FieldName = 'Description'
Origin = '"adress5.DB".Description'
Size = 60
end
object QadressTypeAdress: TSmallintField
DisplayLabel = 'TypeAddress'
FieldName = 'TypeAdress'
Origin = '"adress5.DB".TypeAdress'
Visible = False
end
object QadressLN: TStringField
FieldName = 'LN'
Origin = '"adress5.DB".LN'
Visible = False
Size = 1
end
object QadressPosA: TIntegerField
FieldName = 'PosA'
Origin = '"adress5.DB".PosA'
Visible = False
end
object QadressFN: TStringField
FieldName = 'FN'
Origin = '"adress5.DB".FN'
Visible = False
Size = 1
end
object QadressFComp: TStringField
FieldName = 'FComp'
Origin = '"adress5.DB".FComp'
Visible = False
Size = 1
end
end
object DSGroup: TDataSource
Left = 386
Top = 286
end
object TadressA: TTable
Filtered = True
DatabaseName = 'Vistamail'
IndexFieldNames = 'PosA'
TableName = 'Adress5'
TableType = ttParadox
Left = 414
Top = 244
object TadressAPosA: TIntegerField
FieldName = 'PosA'
end
object TadressAStopList: TBooleanField
FieldName = 'StopList'
end
object TadressAHomeEMail: TStringField
FieldName = 'HomeEMail'
Size = 50
end
object TadressABlockAdress: TBooleanField
FieldName = 'BlockAdress'
end
end
end